0 REM--AHOY--MAR ISSUE--PRIME NUMBER GENERATOR--PROG PAGE 83
1 REM PRIME NUMBER GENERATOR
2 REM  BASED ON KMMM PASCAL DEMO
3 REM WILSERV INDUSTRIES
4 REM BELLMAWR N.J.
5 REM MODIFIED BY MORTON A. KEVELSON
6 REM FOR DTL-BASIC 64 BENCHMARK TESTS
7 REM CONVERT EXCLUDING INTEGER DIRECTIVE
8 REM ** CE ()
9 T1=TI:REM JIFFY CLOCK VARIABLE
10 L=1000:H=1
20 DIM S(L)
30 FOR J=1 TO L:S(J)=1:NEXT J
35 PRINT "ARRAY CLEARED"
40 FOR N=2 TO L
50 IF S(N)<H THEN 80
60 PRINT N;
70 FOR J=N TO L STEP N:S(J)=0:NEXT J
80 NEXTN
85 TE=TI-T1:PRINT:PRINT TE;"JIFFIES"
87 REM 1 JIFFY = 1/60 SECOND
90 END